home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
USGS: Oil & Gas Fields of Asia Pacific
/
USGS Maps Showing Geology, Oil & Gas Fields of Asia Pacific.iso
/
pc
/
ASPAC
/
VIEWPC03
/
SCRIPTS
/
IDENTIFY.AVE
< prev
next >
Wrap
Text File
|
1999-03-10
|
5KB
|
161 lines
theView = av.GetActiveDoc
found = FALSE
p = theView.GetDisplay.ReturnUserPoint
for each t in theView.GetActiveThemes
if (t.CanFindByPoint) then
keys = t.FindByPoint(p)
for each key in keys
found = TRUE
idlabel = t.GetName++"-"
f = NIL
if (t.CanLabel) then
f = t.GetLabelField
end
if (f = NIL) then
if (key.Is(Number)) then
idlabel = idlabel++key.SetFormat("d").AsString
else
idlabel = idlabel++" X :"++key.GetX.AsString++" Y :"++key.GetY.AsString
end
t.Identify(key, idlabel)
else
t3 = t.GetName
if ((t3 = "Geologic age") or (t3 = "Rock type") or (t3 = "Labels")) then
theTable = t.GetFTab
f1 = theTable.FindField("Gen_glg")
s1 = t.ReturnValueString(f1.GetName, key)
if (s1 = "CzMz") then
id1 = "Cenozoic - Mesozoic"
elseif (s1 = "Cz") then
id1 = "Cenozoic"
elseif (s1 = "Q") then
id1 = "Quaternary"
elseif (s1 = "T") then
id1 = "Tertiary"
elseif (s1 = "N") then
id1 = "Neogene"
elseif (s1 = "Pg") then
id1 = "Paleogene"
elseif (s1 = "TK") then
id1 = "Tertiary - Cretaceous"
elseif (s1 = "Mz") then
id1 = "Mesozoic"
elseif (s1 = "K") then
id1 = "Cretaceous"
elseif (s1 = "KJ") then
id1 = "Cretaceous - Jurassic"
elseif (s1 = "J") then
id1 = "Jurassic"
elseif (s1 = "JTr") then
id1 = "Jurassic - Triassic"
elseif (s1 = "Tr") then
id1 = "Triassic"
elseif (s1 = "MzPz") then
id1 = "Mesozoic - Paleozoic"
elseif (s1 = "PzpCm") then
id1 = "Paleozoic - Precambrian"
elseif (s1 = "Pz") then
id1 = "Paleozoic"
elseif (s1 = "Pzu") then
id1 = "Lower Paleozoic"
elseif (s1 = "TrP") then
id1 = "Triassic - Permian"
elseif (s1 = "P") then
id1 = "Permian"
elseif (s1 = "PC") then
id1 = "Permian - Carboniferous"
elseif (s1 = "C") then
id1 = "Carboniferous"
elseif (s1 = "CD") then
id1 = "Carboniferous - Devonian"
elseif (s1 = "Pzl") then
id1 = "Lower Paleozoic"
elseif (s1 = "D") then
id1 = "Devonian"
elseif (s1 = "DS") then
id1 = "Devonian - Silurian"
elseif (s1 = "S") then
id1 = "Silurian"
elseif (s1 = "SO") then
id1 = "Silurian - Ordovician"
elseif (s1 = "O") then
id1 = "Ordovician"
elseif (s1 = "OCm") then
id1 = "Ordovician - Cambrian"
elseif (s1 = "Cm") then
id1 = "Cambrian"
elseif (s1 = "pCm") then
id1 = "Precambrian"
elseif (s1 = "Pt") then
id1 = "Proterozoic"
elseif (s1 = "A") then
id1 = "Archean"
elseif (s1 = "und") then
id1 = "Undetermined Age"
elseif (s1 = "H2O") then
id1 = "Surface Water or Sea"
elseif (s1 = "oth") then
id1 = "Geology Not Shown"
end
f2 = theTable.FindField("Type")
s2 = t.ReturnValueString(f2.GetName, key)
if ((s2 = "") or (s2 = "x")) then
id2 = ""
elseif (s2 = "v") then
id2 = "Extrusive Igneous"
elseif (s2 = "i") then
id2 = "Intrusive Igneous"
elseif (s2 = "w") then
id2 = "Ultrabasic Igneous or Ophiolite"
elseif (s2 = "e") then
id2 = "Eolian Deposits"
end
MsgBox.Info(id1+NL+id2, "Generalized Geology")
elseif (t3 = "Geologic provinces") then
theTable = t.GetFTab
f1 = theTable.FindField("Code")
s1 = t.ReturnValueString(f1.GetName, key)
f2 = theTable.FindField("Name")
s2 = t.ReturnValueString(f2.GetName, key)
MsgBox.Info(s1+NL+s2, "Geologic Province")
elseif (t3 = "Selected cities") then
theTable = t.GetFTab
f1 = theTable.FindField("Name")
s1 = t.ReturnValueString(f1.GetName, key)
f2 = theTable.FindField("Cntry_name")
s2 = t.ReturnValueString(f2.GetName, key)
MsgBox.Info(s1+NL+s2, "Major Cities")
elseif (t3 = "Field centerpoints") then
theTable = t.GetFTab
f1 = theTable.FindField("Commodity")
s1 = t.ReturnValueString(f1.GetName, key)
if (s1 = "Oil") then
id1 = "Classed as Oil Field"
else
id1 = "Classed as Gas Field"
end
f2 = theTable.FindField("Country")
s2 = t.ReturnValueString(f2.GetName, key)
MsgBox.Info(id1+NL+s2, "Oil/Gas Field Centerpoints")
else
s = t.ReturnValueString(f.GetName, key)
idlabel = idlabel++s
t.Identify(key, idlabel)
end
end
end
end
end
if (not found) then
System.Beep
end
theView = av.GetActiveDoc